﻿Imports System.Windows.Forms

Public Class frmInternal

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub InternalName_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.RealName.Items.Add("Assault on the Control Room")
        Me.Internal.Items.Add("b40")
        Me.RealName.Items.Add("Battle Creek")
        Me.Internal.Items.Add("beavercreek")
        Me.RealName.Items.Add("Blood Gulch")
        Me.Internal.Items.Add("bloodgulch")
        Me.RealName.Items.Add("Boarding Action")
        Me.Internal.Items.Add("boardingaction")
        Me.RealName.Items.Add("Pillar of Autumn")
        Me.Internal.Items.Add("a10")
        Me.RealName.Items.Add("Halo")
        Me.Internal.Items.Add("a30")
        Me.RealName.Items.Add("Truth and Reconciliation")
        Me.Internal.Items.Add("a50")
        Me.RealName.Items.Add("Silent Cartographer")
        Me.Internal.Items.Add("b30")
        Me.RealName.Items.Add("Chill Out")
        Me.Internal.Items.Add("chillout")
        Me.RealName.Items.Add("Chiron TL34")
        Me.Internal.Items.Add("putput")
        Me.RealName.Items.Add("Damnation")
        Me.Internal.Items.Add("damnation")
        Me.RealName.Items.Add("Danger Canyon")
        Me.Internal.Items.Add("dangercanyon")
        Me.RealName.Items.Add("Death Island")
        Me.Internal.Items.Add("deathisland")
        Me.RealName.Items.Add("Derelict")
        Me.Internal.Items.Add("carousel")
        Me.RealName.Items.Add("Gephyrophobia")
        Me.Internal.Items.Add("gephyrophobia")
        Me.RealName.Items.Add("Guilty Spark")
        Me.Internal.Items.Add("c10")
        Me.RealName.Items.Add("Hang 'em High")
        Me.Internal.Items.Add("hangemhigh")
        Me.RealName.Items.Add("Ice Fields")
        Me.Internal.Items.Add("icefields")
        Me.RealName.Items.Add("Infinity")
        Me.Internal.Items.Add("infinity")
        Me.RealName.Items.Add("Keyes")
        Me.Internal.Items.Add("d20")
        Me.RealName.Items.Add("Library")
        Me.Internal.Items.Add("c20")
        Me.RealName.Items.Add("Longest")
        Me.Internal.Items.Add("longest")
        Me.RealName.Items.Add("Prisoner")
        Me.Internal.Items.Add("prisoner")
        Me.RealName.Items.Add("Rat Race")
        Me.Internal.Items.Add("ratrace")
        Me.RealName.Items.Add("Sidewinder")
        Me.Internal.Items.Add("sidewinder")
        Me.RealName.Items.Add("Timberland")
        Me.Internal.Items.Add("timberland")
        Me.RealName.Items.Add("The Maw")
        Me.Internal.Items.Add("d40")
        Me.RealName.Items.Add("Two Betrayals")
        Me.Internal.Items.Add("c40")
        Me.RealName.Items.Add("User Interface")
        Me.Internal.Items.Add("ui")
        Me.RealName.Items.Add("Wizard")
        Me.Internal.Items.Add("wizard")
    End Sub

    Private Sub RealName_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RealName.SelectedIndexChanged
        Me.Internal.SelectedIndex = Me.RealName.SelectedIndex

    End Sub
End Class
